Group=Dot Edit
Name=_Rs[Z
Init=coord=-1;\nvScale=1;\ncx=cy=0;\n?a1,Rs[,0,50,10;\n?a2,Rs[,0,50,10;\n?a3,x,1,50,10;\n?a6,ŏTCY ,0,100,100;\n?a7,Fψ,0,127,0;\na3=a3*xs*ys/30000;\nc1=c2=c3=c4=c5=0;\n_Fill(0,0,0);\n_FillT(255);\n
Prog=a4=a1;\na5=a2;\nwhile(c3<a3){\nb1=int(rand(0,xs)-rand(0,xs));\nb2=int(rand(0,ys)-rand(0,ys));\nb3=int(rand(a6,100));\nb6=int(rand(-a7,a7));\na4=a1*b3/100;\na5=a2*b3/100;\n  while(c4<a4){\n    while(c5<a5){\nR=G=B=0;\nadd(c1,c2,1);\nHLS(R,G,B);\nH=(H+b6)-int((H+b6)/255)*255;\nRGB(H,L,S);\n_add(b1+c4,b2+c5,1);\n_Pset(b1+c4,b2+c5);\n    c2=c2+100/b3;\n    c5=c5+1;\n    }\n  c1=c1+100/b3;\n  c5=c2=0;\n  c4=c4+1;\n  }\nc4=c1=0;\nc3=c3+1;\n}\nexit(-1);